<%Function IsFSOInstalled()
	On Error Resume Next
	IsFSOInstalled = False
	Err = 0
	Dim TestObj
	Set TestObj = Server.CreateObject(StrVar(7))
	If  -2147221005 <> Err Then IsFSOInstalled = True
	Set TestObj = Nothing
	Err = 0
End Function
%>